PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Education/Library Hyper Card Templates/Open Stack/Circulation Help/background_2793.txt

Text File | 1987-12-04 | 9.2 KB | 438 lines

-- background: 2793 from stack: in
-- bmap block id: 3143
-- flags: 0000
-- background id: 0
-- name:


-- part 3 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=123 top=133 right=225 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Circ Field
----- HyperTalk script -----








-- part 1 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=124 top=40 right=104 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Call number
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 2 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=176 top=40 right=71 bottom=364
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Author
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 5 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=386 top=305 right=327 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Catalog Screen
----- HyperTalk script -----
on mouseUp
  answer "This takes you to the Cataloging Screen"
end mouseUp


-- part 6 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=260 top=304 right=327 bottom=385
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Acquisition Screen
----- HyperTalk script -----
on mouseUp
  answer "This takes you to the Acquisitions Screen"
end mouseUp


-- part 7 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=104 top=306 right=327 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Overdue Card
----- HyperTalk script -----
on mouseUp
  answer "This takes to the Overdue Card"
end mouseUp






-- part 8 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=5 top=306 right=327 bottom=102
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Patron Card
----- HyperTalk script -----
on mouseUp
  answer "This takes you to the Patron Card"
end mouseUp



-- part 9 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=176 top=71 right=119 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: title
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=233 top=304 right=327 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  answer, "This takes you to the next card"
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=205 top=304 right=327 bottom=231
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  answer "This takes you to the previous card"
end mouseUp



-- part 15 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=124 top=103 right=119 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Book Number
----- HyperTalk script -----
on closeField
  global fieldList,bookNumber,tentativeBook
  if tentativeBook is true then
    put field "Book Number" into bookNumber
  else

    put word 3 of name of me into tempName
    if not(fieldList contains tempName) then
      put (word 3 of name of me) & "," after fieldList
    end if
  end if
end closeField


-- part 21 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=25 top=170 right=194 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  answer "This lets you sort on any field"
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=7 top=140 right=162 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Check Out
----- HyperTalk script -----
on mouseUp
  answer "Click here to check in the book"
end mouseUp



-- part 45 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=424 top=235 right=250 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Check Out
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 46 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=378 top=117 right=213 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reserve Field
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 48 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=12 top=109 right=125 bottom=101
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Today's Date


-- part 50 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=377 top=51 right=77 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Returned


-- part 51 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=379 top=86 right=111 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reserved


-- part 52 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=388 top=57 right=78 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reserved
----- HyperTalk script -----
on mouseUp
  answer "Click here to put the book on reserve"
end mouseUp



-- part 53 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=388 top=34 right=58 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Returned
----- HyperTalk script -----
on mouseUp
  answer "Click here when the book is returned"
end mouseUp



-- part 54 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=156 top=120 right=205 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Patron Number
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 55 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=36 top=202 right=223 bottom=77
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help!
----- HyperTalk script -----
on mouseUp
  go to stack "Circulation Help"
end mouseUp